perm filename LINX[MUS,SYS] blob
sn#171233 filedate 1975-08-01 generic text, type T, neo UTF8
02500 VARIABLE /VAR;
02600 COMPILE;
02700 INSTRUMENT LIN;
02800 LINEN(P4,P7,P8,P9,P5,VAR);
02900 COSCIL(U1,MAG*P3,P6);
03000 OUTA=OUTA+U2;END;FINISH;
06600
06700 ARRAY F2(512);
06800 SEG(F2); 0,1 1 3 .3,25 1,50 0,75 0,100;
08600
08700 PLAY; LIN 0 1 A 2000 F2 F1 .08 .08 1; VAR=0; FINISH;
08800
08850
10300
10400 PLAY; LIN 0 .5 D 2000 F2 F1 .08 .08 1; VAR=0;
10500 LIN .5 .5 F; < P4 to P9 remain the same.
10600 LIN 1 .5 CS 2000 F2 F1 .08 .08 .5; VAR=0;
10700 FINISH;
10800
10900